home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / btr_oop.exe / CPU_OBJ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-26  |  1.2 KB  |  60 lines
  1. Unit CPU_OBJ;
  2. {$D+,L+}
  3.  
  4. INTERFACE
  5.  
  6. Uses Globals,Btrv,Btrv_IO;
  7.  
  8. Type
  9.   DataRecord = record
  10.   Case integer of
  11.     1:(Name        : TypStr20;
  12.        Location    : TypStr15;
  13.        Dept        : LongInt;
  14.        SysNum      : TypStr12;
  15.        AssetNum    : TypStr10;
  16.        SysMfg      : TypStr20;
  17.        SerNum      : TypStr20;
  18.        SysType     : TypStr12;
  19.        SysSpeed    : TypStr6;
  20.        BiosMfg     : TypStr20;
  21.        BiosVer     : TypStr20;
  22.        RAMSize     : TypStr8;
  23.        RamType     : TypStr6;
  24.        RamSpeed    : TypStr8;
  25.        Status      : TypStr12;
  26.        DatePur     : DateType;
  27.        Invoice     : TypStr10;
  28.        Vendor      : TypStr20;
  29.        Price       : Single;
  30.        Note1       : TypStr254;
  31.        Note2       : TypStr254);
  32.     2: (ByPosition : LongInt);                    { used by get position }
  33.   end;
  34.  
  35. Type
  36.   PtrCPU = ^TCPU;
  37.   TCPU = object(TBT_IO)
  38.     Fld : DataRecord;
  39.     Constructor Init;
  40.     Destructor Done; Virtual;
  41.   end;
  42.  
  43. IMPLEMENTATION
  44.  
  45. Constructor TCPU.Init;
  46. begin
  47.   TBT_IO.Init;
  48.   btDataRec      := @Fld;
  49.   btDataRecLen   := Sizeof(DataRecord);
  50.   btKeyBuff.IndxString := Spaces;
  51.   btKey          := 0;
  52. end;
  53.  
  54. Destructor TCPU.Done;
  55. begin
  56.   TBT_IO.Done;
  57. end;
  58.  
  59. BEGIN
  60. END.